home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Cell Control / DATA1.CAB / DELPHIDM / URoll.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-11  |  1020 b   |  48 lines
  1. unit URoll;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Tempunit, ComCtrls, StdCtrls, Buttons, OleCtrls, CELLLib_TLB, ExtCtrls;
  8.  
  9. type
  10.   TFRoll = class(TTemplate)
  11.     procedure FormShow(Sender: TObject);
  12.   private
  13.     { Private declarations }
  14.   public
  15.     { Public declarations }
  16.   end;
  17.  
  18. var
  19.   FRoll: TFRoll;
  20.  
  21. implementation
  22.  
  23. {$R *.DFM}
  24.  
  25. procedure TFRoll.FormShow(Sender: TObject);
  26. Var
  27.        I,J : shortint;
  28. begin
  29.   inherited;
  30.        Cell1.DoSetUnScrollRow(1,2);
  31.        Cell1.DoSetUnScrollCol(0,0);
  32.        for i:= 0 to 0 do
  33.           for j:=0 to 20 do
  34.           begin
  35.               Cell1.DoSetCellColor(i,j,clyellow,clred); {12:║┌}
  36.               Cell1.DoSetCellString(i,j,'Locked region');
  37.           end;
  38.        for i:= 0 to 2 do
  39.           for j:=0 to 10 do
  40.           begin
  41.               Cell1.DoSetCellColor(j,i,clwhite,clred); {12:║┌}
  42.               Cell1.DoSetCellString(j,i,'Locked region');
  43.           end;
  44.  
  45. end;
  46.  
  47. end.
  48.